home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 3 / Light ROM 3 - Disc 2.iso / programs / amiga / macromkr / adpromac.lha / $24->16.adpro next >
Text File  |  1994-01-05  |  1KB  |  51 lines
  1. /* ****************************************************************** */
  2. /*              ADPRO MACRO CONVERT TO B/W SHIFT-F2                   */
  3. /* ****************************************************************** */
  4.  
  5. OPTIONS RESULTS
  6. Address 'ADPro'
  7. STRING = 'CONVERT TO B/W 16 COLORS?'
  8. OKAY2 STRING
  9. IF RC = 0 THEN EXIT
  10. ADPRO_TO_FRONT
  11. LFORMAT "UNIVERSAL"
  12. SFORMAT "IFF"
  13. GETFILE '"SELECT FILE TO CONVERT"' 'EH0:'
  14. LFNAM = ADPRO_RESULT
  15. LOAD LFnam
  16. IF RC ~= 0 THEN DO
  17.         OKAY1 'Could Not Load' LFnam
  18.         EXIT
  19.     END
  20.     RED 0
  21.     GREEN 0
  22.     BLUE 0
  23.     BRIGHTNESS 0
  24.     CONTRAST 50
  25.     GAMMA 0
  26.     OPERATOR 'APPLY_MAP'
  27.   OPERATOR 'COLOR_TO_GRAY'
  28.  RENDER_TYPE  16
  29.  SCREEN_TYPE  3
  30. EXECUTE
  31.  
  32. GETD:
  33. GETDIR '"DESTINATION DIRECORY"'
  34.    IF RC ~= 0 then SIGNAL GETD
  35.    Dnam = ADPRO_RESULT
  36.    Dnam = STRIP(dnam)
  37.    IF RIGHT(Dnam  , 1) ~= ':' THEN Dnam  = Dnam  || '/'
  38.  
  39. SDir = ADPRO_RESULT
  40. c = lastpos("/",LFnam)
  41. if c= 0 then c = lastpos(":",LFnam)
  42. TFnam = substr(LFnam,c+1)
  43. SFnam = Dnam||TFnam||'.16'
  44. SAVE SFnam "IMAGE"
  45. IF RC ~= 0 THEN DO
  46.         OKAY1 'Could Not Save' SFnam
  47.         EXIT
  48.     END
  49. EXIT
  50.